Option Explicit
Sub N_Sample025()
    Dim myAr As Variant
    Dim i    As Long
    '}Cw
    myAr = Array("7/8", "2002.10.1", "105", "30~", _
                 "EQT~QQ", "5-12", "12-32", "12-31")
    For i = 0 To UBound(myAr)
        If IsDate(myAr(i)) Then
            MsgBox myAr(i) & "iHQO" & CDate(myAr(i)) & "oӤC"
        Else
            MsgBox myAr(i) & "LkQC"
        End If
    Next
End Sub
